
library(ExPosition)

data(french.social)
social.res <- epPCA(french.social$data)

sing.vals <- social.res$ExPosition.Data$pdq$Dv

row.fs <- social.res$ExPosition.Data$fi

row.fs.t.values <- matrix(0,5,2)

####
row.fs.t.values[1,1] <- row.fs[1,1] / (sing.vals[1]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[2,1] <- row.fs[2,1]/ (sing.vals[1]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[3,1] <- row.fs[3,1]/ (sing.vals[1]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[4,1] <- row.fs[4,1]/ (sing.vals[1]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[5,1] <- row.fs[5,1]/ (sing.vals[1]/sqrt(nrow(social.res$ExPosition.Data$fi)))
####
row.fs.t.values[1,2] <- row.fs[1,2]/ (sing.vals[2]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[2,2] <- row.fs[2,2]/ (sing.vals[2]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[3,2] <- row.fs[3,2]/ (sing.vals[2]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[4,2] <- row.fs[4,2]/ (sing.vals[2]/sqrt(nrow(social.res$ExPosition.Data$fi)))
row.fs.t.values[5,2] <- row.fs[5,2]/ (sing.vals[2]/sqrt(nrow(social.res$ExPosition.Data$fi)))


#We'll talk about this...	
row.fs.t.tests <- matrix(0,5,2)	
row.fs.t.tests <- abs(row.fs.t.values) > 2